home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / misc / emu / arosdev.lha / AROS / rom / exec / addresource.c < prev    next >
C/C++ Source or Header  |  1997-01-09  |  2KB  |  82 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: addresource.c,v 1.7 1997/01/01 03:46:04 ldp Exp $
  4.     $Log: addresource.c,v $
  5.     Revision 1.7  1997/01/01 03:46:04  ldp
  6.     Committed Amiga native (support) code
  7.  
  8.     Changed clib to proto
  9.  
  10.     Revision 1.6  1996/12/10 13:51:35  aros
  11.     Moved all #include's in the first column so makedepend can see it.
  12.  
  13.     Revision 1.5  1996/10/24 15:50:42  aros
  14.     Use the official AROS macros over the __AROS versions.
  15.  
  16.     Revision 1.4  1996/08/13 13:55:56  digulla
  17.     Replaced AROS_LA by AROS_LHA
  18.     Replaced some AROS_LH*I by AROS_LH*
  19.     Sorted and added includes
  20.  
  21.     Revision 1.3  1996/08/01 17:41:02  digulla
  22.     Added standard header for all files
  23.  
  24.     Desc:
  25.     Lang: english
  26. */
  27. #include <exec/execbase.h>
  28. #include <aros/libcall.h>
  29. #include <proto/exec.h>
  30.  
  31. /*****************************************************************************
  32.  
  33.     NAME */
  34.  
  35.     AROS_LH1(void, AddResource,
  36.  
  37. /*  SYNOPSIS */
  38.     AROS_LHA(APTR, resource, A1),
  39.  
  40. /*  LOCATION */
  41.     struct ExecBase *, SysBase, 81, Exec)
  42.  
  43. /*  FUNCTION
  44.     Adds a given resource to the system's resource list.
  45.  
  46.     INPUTS
  47.     resource - Pointer to a ready for use resource.
  48.  
  49.     RESULT
  50.  
  51.     NOTES
  52.  
  53.     EXAMPLE
  54.  
  55.     BUGS
  56.  
  57.     SEE ALSO
  58.     RemResource(), OpenResource()
  59.  
  60.     INTERNALS
  61.  
  62.     HISTORY
  63.  
  64. ******************************************************************************/
  65. {
  66.     AROS_LIBFUNC_INIT
  67.  
  68.     /* Just in case the user forgot them */
  69.     ((struct Node *)resource)->ln_Type=NT_RESOURCE;
  70.  
  71.     /* Arbitrate for the resource list */
  72.     Forbid();
  73.  
  74.     /* And add the resource */
  75.     Enqueue(&SysBase->ResourceList,(struct Node *)resource);
  76.  
  77.     /* All done. */
  78.     Permit();
  79.     AROS_LIBFUNC_EXIT
  80. } /* AddResource */
  81.  
  82.